function ValueResult=checkAuthorsEditorsNature2(ValueAuthor,VecGroupCoAuthors,VecSpecialCharacters,ValueFilter)

VecTemp=VecGroupCoAuthors;
n4=1;
% n41=2;
TestTemp=0;
% if ValueFilter==0
%     n5=size(VecTemp,1);
% else
%     if size(VecTemp,1)>=1
%         n5=1;
%     else
%         n5=0;
%     end
% end
while n4<=n5&&TestTemp==0
    n41=2;
    while n41<=VecTemp{n4,1}+1&&TestTemp==0
        ValueTemp2=VecTemp{n4,n41};
        if size(ValueTemp2,2)>=1
            if strcmps(double(ValueTemp2),double(ValueAuthor),VecSpecialCharacters)>=0.99
                TestTemp=n4;
            end
        end
        n41=n41+1;
    end
    n4=n4+1;
end
ValueResult=TestTemp;
            

